Database

Private nameConn As ADODB.Connection
Private nameCMD As ADODB.Command
Private nameRST As ADODB.Recordset


Private Sub ConnectTODB()
Set nameConn = New ADODB.Connection

nameConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\meki\meki training\dbnames.mdb"
nameConn.Open

Set nameCMD = New ADODB.Command
Set nameCMD.ActiveConnection = nameConn
End Sub

<br />
CREATE TABLE [YOUR_TABLE](<br />
             [YOUR_TABLE_DEFINITION]<br />
 CONSTRAINT [YOUR_INDEX_NAME] PRIMARY KEY NONCLUSTERED <br />
(<br />
	[PRIMARY_KEY_COLUMN] ASC<br />
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]<br />
) ON [PRIMARY]<br />

SELECT ROW_NUMBER () OVER (ORDER BY Column Name) AS Rowid FROM tablename
Where Rowid will retrieve the row number based on the columns.

select datediff(d,'01 jun 2006',getdate())

select col...
from table1
inner join table 2 on ...
inner join table3 on ...

Create Function ReturnAmount(@CMID int) Returns Decimal
as
BEGIN
declare @Return decimal
select @Return =sum(PD_PaymentAmount) from Payment_Details where 
PD_IsRefund=1 and PD_PaymentType=1 and PD_CMID=@CMID
return (@Return)
END