public string UserContact(long ID)
        {
            conn = new SqlConnection(ConnStr);
            SqlCommand cmd = new SqlCommand();
            cmd.CommandType = CommandType.StoredProcedure;
            cmd.CommandText = "sp_userContact";
            cmd.Connection = conn;
            SqlParameter param = new SqlParameter();
            param.ParameterName = "@ID_user";
            param.SqlDbType = SqlDbType.BigInt;
            param.Value = Convert.ToInt64(ID);
            cmd.Parameters.Add(param);
            SqlDataAdapter ADP = new SqlDataAdapter();
            ADP.SelectCommand = cmd;
            DataTable DT = new DataTable();
            TableRow TRow = null;
            try
            {
                conn.Open();
                ADP.Fill(DT);
                for (int i = 0; i < DT.Rows.Count; i++)
                {
                    TRow = new TableRow();
                    TableCell TCell = new TableCell();
                    TCell.Text = DT.Rows.ToString();
                    TRow.Cells.Add(TCell);
                    TCell = new TableCell();
                    TCell.Text = DT.Rows.ToString();
                    TRow.Cells.Add(TCell);
                }
            }
            catch (Exception ex)
            {
                Log.WriteError(ex.Message);
            }
            finally
            {
                conn.Close();
            }
            return TRow;
        }

DataTable dt = new DataTable;
UserContact(1234, out dt)

        Public Function GetUserName(ByVal ID As String) As String
            'On Error GoTo err
            Dim StrTemp As String = ""
            STRSQL = "SELECT * FROM Users where ID=" & ID
            If Database.Execute(STRSQL) = "OK" Then
                rs = Database.CommandObject.ExecuteReader()
                If rs.HasRows = False Then
                    rs.Close()
                    Database.close()
                    Return ""
                    Exit Function
                Else
                    Do While (rs.Read())
                        StrTemp = rs("Uname")
                    Loop
                    rs.Close()
                    Database.close()
                    Return StrTemp
                End If
            End If